home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Lexical_Order_files / USERDEF.BAS < prev   
Encoding:
BASIC Source File  |  2001-03-02  |  439 b   |  25 lines
  1. 5    REM USERDEF.BAS
  2. 10   INTEGER A(0:260)
  3. 20   A(65)=0
  4. 30   A(66)=256
  5. 40   A(67)=1
  6. 50   A(68)=576
  7. 60   A(69)=1411
  8. 65   A(70)=1280
  9. 75   A(71)=1536
  10. 80   A(72)=1984
  11. 90   A(73)=1985
  12. 100  A(256)=4
  13. 110  A(257)=2
  14. 120  A(258)=22532
  15. 130  A(259)=22787
  16. 140  A(260)=1573
  17. 150  FOR I=74 TO 255
  18. 160    A(I)=SHIFT(I-66,-8)
  19. 170  NEXT I
  20. 180  FOR I=0 TO 64
  21. 190    A(I)=SHIFT(I+190,-8)
  22. 200  NEXT I
  23. 210  LEXICAL ORDER IS A(*)
  24. 220  END
  25.